home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic 5 Developer's Kit / vb5 dev kit.iso / dev / mailx6 / _setup.2 / Group4 / OCXDEMO.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-07-17  |  3.6 KB  |  119 lines
  1. VERSION 4.00
  2. Begin VB.MDIForm SessionForm 
  3.    BackColor       =   &H8000000C&
  4.    Caption         =   "Mail X for Visual Basic v1.60"
  5.    ClientHeight    =   5340
  6.    ClientLeft      =   1065
  7.    ClientTop       =   1770
  8.    ClientWidth     =   7050
  9.    Height          =   6000
  10.    Left            =   1020
  11.    LinkTopic       =   "MDIForm1"
  12.    Top             =   1155
  13.    Width           =   7140
  14.    Begin VB.PictureBox Picture1 
  15.       Align           =   1  'Align Top
  16.       BackColor       =   &H00C0C0C0&
  17.       Height          =   615
  18.       Left            =   0
  19.       ScaleHeight     =   585
  20.       ScaleWidth      =   7020
  21.       TabIndex        =   0
  22.       Top             =   0
  23.       Width           =   7050
  24.       Begin VB.CommandButton BtnNewMsg 
  25.          Caption         =   "New Msg"
  26.          BeginProperty Font 
  27.             name            =   "MS Sans Serif"
  28.             charset         =   1
  29.             weight          =   700
  30.             size            =   8.25
  31.             underline       =   0   'False
  32.             italic          =   0   'False
  33.             strikethrough   =   0   'False
  34.          EndProperty
  35.          Height          =   390
  36.          Left            =   1395
  37.          TabIndex        =   2
  38.          Top             =   120
  39.          Width           =   1200
  40.       End
  41.       Begin VB.CommandButton Tb_Inbox 
  42.          Caption         =   "Inbox"
  43.          BeginProperty Font 
  44.             name            =   "MS Sans Serif"
  45.             charset         =   1
  46.             weight          =   700
  47.             size            =   8.25
  48.             underline       =   0   'False
  49.             italic          =   0   'False
  50.             strikethrough   =   0   'False
  51.          EndProperty
  52.          Height          =   390
  53.          Left            =   120
  54.          TabIndex        =   1
  55.          Top             =   120
  56.          Width           =   1215
  57.       End
  58.       Begin Mailx16Lib.MSess MSess1 
  59.          Left            =   3240
  60.          Top             =   0
  61.          _version        =   65542
  62.          _extentx        =   900
  63.          _extenty        =   900
  64.          _stockprops     =   0
  65.       End
  66.       Begin Mailx16Lib.MForm MForm1 
  67.          Left            =   4605
  68.          Top             =   135
  69.          _version        =   65542
  70.          _extentx        =   4048
  71.          _extenty        =   500
  72.          _stockprops     =   0
  73.          mxformname      =   "FormTag1"
  74.       End
  75.    End
  76.    Begin VB.Menu Session 
  77.       Caption         =   "&Session"
  78.       Begin VB.Menu InboxList 
  79.          Caption         =   "&Inbox List"
  80.       End
  81.    End
  82.    Begin VB.Menu Message 
  83.       Caption         =   "&Message"
  84.       Begin VB.Menu NewMail 
  85.          Caption         =   "&New Mail"
  86.       End
  87.    End
  88. Attribute VB_Name = "SessionForm"
  89. Attribute VB_Creatable = False
  90. Attribute VB_Exposed = False
  91. Private Sub BtnNewMsg_Click()
  92.     NewMail_Click
  93. End Sub
  94. Private Sub InboxList_Click()
  95.     Dim NewInboxList As New InboxForm
  96.     NewInboxList.Show
  97. End Sub
  98. Private Sub MDIForm_Load()
  99.     Load SystemX
  100.     SystemX.MsMail = False
  101.     SystemX.Show 1
  102.     MSess1.Logon = True
  103.     If MSess1.Logon = False Then End
  104. End Sub
  105. Private Sub NewMail_Click()
  106.     Dim MsgWnd As New MsgForm
  107.     MsgWnd.szTime.Enabled = False
  108.     MsgWnd.szMsgID.Enabled = False
  109.     MsgWnd.szOriginator.Enabled = False
  110.     MsgWnd.szFileList.Enabled = False
  111.     MsgWnd.btnReply.Enabled = False
  112.     MsgWnd.BtnForward.Enabled = False
  113.     MsgWnd.MMsg1.WorkingMsg = COMPOSE_MSG
  114.     MsgWnd.Show
  115. End Sub
  116. Private Sub Tb_Inbox_Click()
  117.     InboxList_Click
  118. End Sub
  119.